<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<!--#include file="../inc/conn.asp"-->
<!--#include file="../inc/md5.asp"-->
<!--#include file="../common/admin.asp"-->
<%
id=request.QueryString("id")
if id<>"" then
	set rs=server.CreateObject("adodb.recordset")
	sql="select * from special where id="&id&""
	rs.open sql,conn,1,3
	if not rs.eof then
	     title=rs("title")
		 url=rs("url")
		 webtype=rs("webtype")
		 sort=rs("sort")
	rs.close
	set rs=nothing
	end if
end if
%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<title>add</title>
<link href="../css/style.css" rel="stylesheet" type="text/css"/>
<style>body {background-color: #eaece1;}</style>
</head>

<body>
<div class="main">
  <div class="main-title">操作</div>
  <div class="main-content">
  <%if id<>"" then%>
  <table width="100%" border="0" cellspacing="1" cellpadding="3" class="tab">
  <form name="form" id="form" action="" method="post">
  <tr>
    <td width="21%" bgcolor="#FFFFFF">标题</td>
    <td width="79%" bgcolor="#FFFFFF"><input name="title" type="text" class="input" id="title" value="<%=title%>" /></td>
  </tr>
  <tr>
    <td bgcolor="#FFFFFF">链接</td>
    <td bgcolor="#FFFFFF"><input name="url" type="text" class="input" id="url" value="<%=url%>" /></td>
  </tr>
  <tr>
    <td bgcolor="#FFFFFF">序号</td>
    <td bgcolor="#FFFFFF"><input name="sort" type="text" class="input" id="sort" value="<%=sort%>" /></td>
  </tr>
  <tr>
    <td bgcolor="#FFFFFF">网站类型</td>
    <td bgcolor="#FFFFFF"><select name="webtype" id="webtype">
      <%
					  set rsm=server.CreateObject("adodb.recordset")
					  sql="select * from web"
					  rsm.open sql,conn,1,3
					  if not rsm.eof then
					  do while not rsm.eof
					  %>
      <option value="<%=rsm("id")%>"<%if webtype=rsm("id") then response.Write " selected"%>><%=rsm("title")%></option>
      <%
					  rsm.movenext
					  loop
					  rsm.close
					  set rsm=nothing
					  end if		 
					  %>
      </select></td>
  </tr>
  <tr>
    <td bgcolor="#FFFFFF">&nbsp;</td>
    <td bgcolor="#FFFFFF"><input type="submit" name="button" id="button" value="保存" />
      </td>
  </tr>
  <tr>
    <td bgcolor="#FFFFFF">&nbsp;</td>
    <td bgcolor="#FFFFFF">&nbsp;</td>
    </tr>
  <tr>
    <td bgcolor="#FFFFFF">&nbsp;</td>
    <td bgcolor="#FFFFFF">&nbsp;</td>
    </tr>
  <tr>
    <td bgcolor="#FFFFFF">&nbsp;</td>
    <td bgcolor="#FFFFFF">&nbsp;</td>
    </tr>
    </form>
  </table>
  <%else%>
  <table width="100%" border="0" cellspacing="1" cellpadding="3" class="tab">
  <form name="form" id="form" action="" method="post">
  <tr>
    <td width="21%" bgcolor="#FFFFFF">标题</td>
    <td width="79%" bgcolor="#FFFFFF"><input name="title" type="text" class="input" id="title" /></td>
  </tr>
  <tr>
    <td bgcolor="#FFFFFF">链接</td>
    <td bgcolor="#FFFFFF"><input name="url" type="text" class="input" id="url" /></td>
  </tr>
  <tr>
    <td bgcolor="#FFFFFF">序号</td>
    <td bgcolor="#FFFFFF"><input name="sort" type="text" class="input" id="sort" value="0" /></td>
  </tr>
  <tr>
    <td bgcolor="#FFFFFF">网站类型</td>
    <td bgcolor="#FFFFFF"><select name="webtype" id="webtype">
      <%
					  set rsm=server.CreateObject("adodb.recordset")
					  sql="select * from web"
					  rsm.open sql,conn,1,3
					  if not rsm.eof then
					  do while not rsm.eof
					  %>
      <option value="<%=rsm("id")%>"<%if webtype=rsm("id") then response.Write " selected"%>><%=rsm("title")%></option>
      <%
					  rsm.movenext
					  loop
					  rsm.close
					  set rsm=nothing
					  end if		 
					  %>
      </select></td>
  </tr>
  <tr>
    <td bgcolor="#FFFFFF">&nbsp;</td>
    <td bgcolor="#FFFFFF"><input type="submit" name="button" id="button" value="添加" />
      </td>
  </tr>
  <tr>
    <td bgcolor="#FFFFFF">&nbsp;</td>
    <td bgcolor="#FFFFFF">&nbsp;</td>
    </tr>
  <tr>
    <td bgcolor="#FFFFFF">&nbsp;</td>
    <td bgcolor="#FFFFFF">&nbsp;</td>
    </tr>
  <tr>
    <td bgcolor="#FFFFFF">&nbsp;</td>
    <td bgcolor="#FFFFFF">&nbsp;</td>
    </tr>
    </form>
  </table>
  <%end if%>
</div>
</div>
</body>
</html>
<%
if request.Form("button")="添加" then

	  title=request.Form("title")
	  url=request.Form("url")
	  webtype=request.Form("webtype")
	  sort=request.Form("sort")

	  if title="" or url="" then
	  response.write"<script>alert('标题、url不能为空');</script>"
	  response.write"<script>window.history.back(-1);</script>"
	  response.end
	  end if
	  
	  set rsx=server.createobject("adodb.recordset")
	  sql="select * from special"
	  rsx.open sql,conn,1,3
	  rsx.addnew
	  rsx("title")=title
	  rsx("url")=url
	  rsx("webtype")=webtype
	  rsx("sort")=sort
	  rsx.update
	  response.write"<script language=JavaScript>{window.alert('添加成功！');window.location.href='view.asp';}</script>"
	  rsx.close
	  set rsx=nothing

elseif request.Form("button")="保存" then

	  title=request.Form("title")
	  url=request.Form("url")
	  webtype=request.Form("webtype")
	  sort=request.Form("sort")

	  if title="" or url="" then
	  response.write"<script>alert('标题、图片、url不能为空');</script>"
	  response.write"<script>window.history.back(-1);</script>"
	  response.end
	  end if
	  
	  set rsx=server.createobject("adodb.recordset")
	  sql="select * from special where id="&id&""
	  rsx.open sql,conn,1,3
	  rsx("title")=title
	  rsx("url")=url
	  rsx("webtype")=webtype
	  rsx("sort")=sort
	  rsx.update
	  response.write"<script language=JavaScript>{window.alert('保存成功！');window.location.href='add.asp?id="&id&"';}</script>"
	  rsx.close
	  set rsx=nothing
end if
%>